﻿Imports Entidades
Public Class frmBorrarTrabajador
    Private lista As New List(Of Usuario)
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()


    End Sub

    Private Sub frmBorrarTrabajador_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lista = miGestion.obtenerUsuarios
        For i As Integer = 0 To lista.Count - 1
            cboTrabajadores.Items.Add(lista(i).Nombre)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If cboTrabajadores.Text = "" Then
            MessageBox.Show("Selecciona un trabajador")
            Exit Sub
        End If
        Dim st As String = miGestion.BorrarTrabajador(lista(cboTrabajadores.SelectedIndex))
        If st <> "" Then
            MessageBox.Show(st)
            Exit Sub
        End If
        MessageBox.Show("Trabajador eliminado correctamente")
        cboTrabajadores.Items.Clear()
        lista = miGestion.obtenerUsuarios
        For i As Integer = 0 To lista.Count - 1
            cboTrabajadores.Items.Add(lista(i).Nombre)
        Next
    End Sub
End Class